home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Amos / vargolle / Vargolle.AMOS / Vargolle.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1980-12-12  |  6.4 KB  |  191 lines
  1. 'Load "lilllo.abk" 
  2. 'Load Iff "darf",1 
  3. Unpack 11 To 0
  4. 'Load "d.abk",1
  5. Hide 
  6. Flash Off 
  7. Curs Off 
  8. Get Sprite Palette 
  9. Double Buffer 
  10. D=1
  11. X=10
  12. H=10
  13. Music 1
  14. J1=-100
  15. J2=-35
  16. J3=-200
  17. J4=-300
  18. KU=23
  19. A:
  20. Bob 2,X,Y,D+SID
  21. Bob 14,M,N,19
  22. Bob 3,M1,N1,20
  23. Bob 4,M2,N2,20
  24. Bob 5,M3,N3,20
  25. Bob 6,M4,N4,21
  26. Bob 7,T,R,7
  27. Bob 8,Z,A,H
  28. Bob 9,L,J,9
  29. Bob 10,L1,J1,9
  30. Bob 11,L2,J2,9
  31. Bob 12,L3,J3,9
  32. Bob 13,L4,J4,9
  33. Bob 1,O,I,KU
  34. If KU=26 and Fire(1) and X>O-5 and X<O+5 and Y>I-15 and Y<I+15 Then Wait 40 : Goto B
  35. If Not RUT=1 or RUT=4 or RUT=6 or RUT=7 Then O=1000
  36. If J>450 Then J=-220 : L=BEM : AW=0
  37. If J1>770 Then J1=-200 : L1=BEM : AW1=0
  38. If J2>370 Then J2=-110 : L2=BEM : AW2=0
  39. If J3>600 Then J3=-90 : L3=BEM : AW3=0
  40. If J4>530 Then J4=-10 : L4=BEM : AW4=0
  41. J=J+AW
  42. J1=J1+AW1
  43. J2=J2+AW2
  44. J3=J3+AW3
  45. J4=J4+AW4
  46. BEM=BEM+5
  47. If BEM>300 Then BEM=0
  48. ROLI=ROLI+1
  49. If ROLI>3 Then H=11
  50. If ROLI>6 Then H=10 : ROLI=0
  51. If BONG=1 Then Z=Z-5
  52. If BONG=0 Then Z=Z+5
  53. If FLIPP=1 Then A=A-5
  54. If FLIPP=0 Then A=A+5
  55. If Z<1 Then BONG=0
  56. If Z>300 Then BONG=1
  57. If A>256 Then FLIPP=1
  58. If A<1 Then FLIPP=0
  59. T=T-1
  60. HOPPI=HOPPI+1
  61. If HOPPI>5 Then Q=Q+1 : AW=AW+1 : AW1=AW1+1 : AW2=AW2+1 : AW3=AW3+1 : AW4=AW4+1 : HOPPI=0
  62. If T<1 Then T=300 : R=GOS : Q=1
  63. GOS=GOS+3
  64. If GOS>75 Then GOS=0
  65. R=R+Q
  66. If T>M-2 and T<M+100 and R>N-5 and R<N+5 Then Q=-5 : R=N
  67. If T>M1-2 and T<M1+100 and R>N1-5 and R<N1+5 Then Q=-5 : R=N1
  68. If T>M2-2 and T<M2+100 and R>N2-5 and R<N2+5 Then Q=-5 : R=N2
  69. If T>M3-2 and T<M3+100 and R>N3-5 and R<N3+5 Then Q=-5 : R=N3
  70. If T>M4-2 and T<M4+100 and R>N4-5 and R<N4+5 Then Q=-5 : R=N4
  71. If Jleft(1) Then X=X-1 : P=1 : SID=3
  72. If Jright(1) Then X=X+1 : P=1 : SID=0
  73. If Jup(1) and STAND=1 Then HOPP=-5
  74. TID=TID+1
  75. If X>300 Then X=1 : RUT=RUT+1 : T=300 : R=GOS : Q=1
  76. If X<1 Then X=300 : RUT=RUT-1 : R=GOS : T=300 : Q=1
  77. If RUT=0 Then M=0 : N=180 : M1=100 : N1=100 : M2=200 : N2=50 : M3=20 : N3=20 : M4=200 : N4=180
  78. If RUT=1 Then M1=0 : N1=100 : M=130 : N=100 : M2=50 : N2=240 : M3=180 : N3=90 : M4=250 : N4=100 : O=80 : I=240 : KU=26
  79. If RUT=2 Then M=100 : N=150 : M1=0 : N1=170 : M3=110 : N3=150 : M2=200 : N2=120 : M4=200 : N4=150
  80. If RUT=3 Then M=0 : N=200 : M1=50 : N1=200 : M2=100 : N2=100 : M3=200 : N3=80 : M4=100 : N4=180
  81. If RUT=4 Then M=250 : N=180 : M1=100 : N1=150 : M2=50 : N2=170 : M3=120 : N3=200 : M4=140 : N4=10
  82. If RUT=5 Then M=0 : N=180 : M1=160 : N1=180 : M2=200 : N2=150 : M3=120 : N3=210 : M4=200 : N4=180
  83. If RUT=6 Then M=120 : N=10 : M1=170 : N1=150 : M2=0 : N2=150 : M3=220 : N3=100 : M4=100 : N4=100 : O=130 : I=100 : KU=27
  84. If RUT=7 Then M=75 : N=78 : M1=130 : N1=100 : M2=250 : N2=150 : M3=20 : N3=220 : M4=120 : N4=80
  85. If RUT=8 Then M=0 : N=180 : M1=100 : N1=100 : M2=200 : N2=150 : M3=20 : N3=20 : M4=200 : N4=180 : O=225 : I=150 : KU=28
  86. If RUT=9 Then M=0 : N=180 : M1=100 : N1=100 : M2=200 : N2=50 : M3=20 : N3=20 : M4=200 : N4=180
  87. Y=Y+HOPP
  88. If TID>5 Then HOPP=HOPP+1 : TID=0
  89. If STAND=0 Then D=3
  90. If STAND=1 and P=1 Then G=G+1
  91. If G>3 Then D=1
  92. If G>6 Then D=2 : P=0 : G=0
  93. STAND=0
  94. If X>M-2 and X<M+100 and Y>N-5 and Y<N+5 Then STAND=1 : Y=N
  95. If X>M1-2 and X<M1+100 and Y>N1-5 and Y<N1+5 Then STAND=1 : Y=N1
  96. If X>M2-2 and X<M2+100 and Y>N2-5 and Y<N2+5 Then STAND=1 : Y=N2
  97. If X>M3-2 and X<M3+100 and Y>N3-5 and Y<N3+5 Then STAND=1 : Y=N3
  98. If X>M4-2 and X<M4+100 and Y>N4-5 and Y<N4+5 Then STAND=1 : Y=N4
  99. If X>T-5 and X<T+5 and Y>R-15 and Y<R+15 Then Fade 9 : End 
  100. If STAND=1 Then HOPP=0
  101. Wait 1
  102. Goto A
  103. B:
  104. Bob 2,X,Y,D+SID
  105. Bob 14,M,N,12
  106. Bob 3,M1,N1,12
  107. Bob 4,M2,N2,12
  108. Bob 5,M3,N3,13
  109. Bob 6,M4,N4,14
  110. Bob 7,T,R,7
  111. Bob 8,Z,A,H
  112. Bob 9,L,J,9
  113. Bob 10,L1,J1,9
  114. Bob 11,L2,J2,9
  115. Bob 12,L3,J3,9
  116. Bob 13,L4,J4,9
  117. Bob 1,O,I,KU
  118. If KU=23 and Fire(1) and X>O-5 and X<O+5 and Y>I-15 and Y<I+15 Then Wait 40 : Goto B
  119. L=1000
  120. L1=1000
  121. L2=1000
  122. L3=1000
  123. L4=1000
  124. If Not RUT=1 or RUT=4 or RUT=6 or RUT=7 Then O=1000
  125. If J>450 Then J=-220 : L=BEM : AW=0
  126. If J1>770 Then J1=-200 : L1=BEM : AW1=0
  127. If J2>370 Then J2=-110 : L2=BEM : AW2=0
  128. If J3>600 Then J3=-90 : L3=BEM : AW3=0
  129. If J4>530 Then J4=-10 : L4=BEM : AW4=0
  130. J=J+AW
  131. J1=J1+AW1
  132. J2=J2+AW2
  133. J3=J3+AW3
  134. J4=J4+AW4
  135. BEM=BEM+5
  136. If BEM>300 Then BEM=0
  137. ROLI=ROLI+1
  138. If ROLI>3 Then H=11
  139. If ROLI>6 Then H=10 : ROLI=0
  140. If BONG=1 Then Z=Z-5
  141. If BONG=0 Then Z=Z+5
  142. If FLIPP=1 Then A=A-5
  143. If FLIPP=0 Then A=A+5
  144. If Z<1 Then BONG=0
  145. If Z>300 Then BONG=1
  146. If A>256 Then FLIPP=1
  147. If A<1 Then FLIPP=0
  148. T=T-1
  149. HOPPI=HOPPI+1
  150. If HOPPI>5 Then Q=Q+1 : AW=AW+1 : AW1=AW1+1 : AW2=AW2+1 : AW3=AW3+1 : AW4=AW4+1 : HOPPI=0
  151. If T<1 Then T=300 : R=GOS : Q=1
  152. GOS=GOS+3
  153. If GOS>75 Then GOS=0
  154. R=R+Q
  155. If T>M-2 and T<M+100 and R>N-5 and R<N+5 Then Q=-5 : R=N
  156. If T>M1-2 and T<M1+100 and R>N1-5 and R<N1+5 Then Q=-5 : R=N1
  157. If T>M2-2 and T<M2+100 and R>N2-5 and R<N2+5 Then Q=-5 : R=N2
  158. If T>M3-2 and T<M3+100 and R>N3-5 and R<N3+5 Then Q=-5 : R=N3
  159. If T>M4-2 and T<M4+100 and R>N4-5 and R<N4+5 Then Q=-5 : R=N4
  160. If Jleft(1) Then X=X-1 : P=1 : SID=3
  161. If Jright(1) Then X=X+1 : P=1 : SID=0
  162. If Jup(1) and STAND=1 Then HOPP=-5
  163. TID=TID+1
  164. If X>300 Then X=1 : RUT=RUT+1 : T=300 : R=GOS : Q=1
  165. If X<1 Then X=300 : RUT=RUT-1 : R=GOS : T=300 : Q=1
  166. If RUT=0 Then M=0 : N=180 : M1=100 : N1=180 : M2=200 : N2=180 : M3=300 : N3=180 : M4=200 : N4=120
  167. If RUT=1 Then M1=0 : N1=180 : M=100 : N=180 : M2=200 : N2=180 : M3=180 : N3=130 : M4=150 : N4=90 : O=80 : I=240 : KU=23
  168. If RUT=2 Then M=100 : N=50 : M1=0 : N1=70 : M3=110 : N3=100 : M2=210 : N2=200 : M4=200 : N4=180
  169. If RUT=3 Then M=0 : N=200 : M1=50 : N1=200 : M2=130 : N2=90 : M3=150 : N3=180 : M4=100 : N4=180
  170. If RUT=4 Then M=0 : N=180 : M1=150 : N1=90 : M2=150 : N2=70 : M3=170 : N3=100 : M4=140 : N4=10
  171. If RUT=5 Then M=0 : N=180 : M1=160 : N1=180 : M2=200 : N2=150 : M3=120 : N3=210 : M4=200 : N4=180
  172. If RUT=6 Then M=120 : N=10 : M1=170 : N1=150 : M2=0 : N2=150 : M3=220 : N3=100 : M4=100 : N4=100 : O=130 : I=100 : KU=26
  173. If RUT=7 Then M=75 : N=78 : M1=130 : N1=100 : M2=250 : N2=150 : M3=20 : N3=220 : M4=120 : N4=80
  174. If RUT=8 Then M=0 : N=180 : M1=100 : N1=100 : M2=200 : N2=150 : M3=20 : N3=20 : M4=200 : N4=180 : O=225 : I=150 : KU=28
  175. If RUT=9 Then M=0 : N=180 : M1=100 : N1=100 : M2=200 : N2=50 : M3=20 : N3=20 : M4=200 : N4=180
  176. Y=Y+HOPP
  177. If TID>5 Then HOPP=HOPP+1 : TID=0
  178. If STAND=0 Then D=3
  179. If STAND=1 and P=1 Then G=G+1
  180. If G>3 Then D=1
  181. If G>6 Then D=2 : P=0 : G=0
  182. STAND=0
  183. If X>M-2 and X<M+100 and Y>N-5 and Y<N+5 Then STAND=1 : Y=N
  184. If X>M1-2 and X<M1+100 and Y>N1-5 and Y<N1+5 Then STAND=1 : Y=N1
  185. If X>M2-2 and X<M2+100 and Y>N2-5 and Y<N2+5 Then STAND=1 : Y=N2
  186. If X>M3-2 and X<M3+100 and Y>N3-5 and Y<N3+5 Then STAND=1 : Y=N3
  187. If X>M4-2 and X<M4+100 and Y>N4-5 and Y<N4+5 Then STAND=1 : Y=N4
  188. If X>T-5 and X<T+5 and Y>R-15 and Y<R+15 Then Fade 9 : End 
  189. If STAND=1 Then HOPP=0
  190. Wait 1
  191. Goto B